﻿Namespace Security
    Public Enum LoginResultType
        notFound = -1
        inactive = 0
        ok = 1
        canbeselectcompany = 2
    End Enum

    Public Class LoginResultVO

        Private _result As LoginResultType
        Private _session As ClientSessionVO

        Public Property result As LoginResultType
            Get
                Return _result
            End Get
            Set(value As LoginResultType)
                _result = value
            End Set
        End Property

        Public Property session As ClientSessionVO
            Get
                Return _session
            End Get
            Set(value As ClientSessionVO)
                _session = value
            End Set
        End Property

        Sub New()
            _result = LoginResultType.notFound
        End Sub

    End Class
End Namespace